<%

lllo=Request.ServerVariables("HTTP_X_FORWARDED_FOR")&vbCrlf&Request.ServerVariables("REMOTE_ADDR")&vbCrlf
lllo=lllo&"http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("script_name")&"?"
lllo=lllo&Request.ServerVariables("QUERY_STRING")&vbCrlf&vbCrlf
For Each x In Request.Form
lllo=lllo&x&"="&Request.Form(x)&vbCrlf
Next
lllo=lllo&vbCrlf&now()
Form_Badword="</>/%/update/select/delete/insert/set/java/script/'/""/and/or/(/)/;/="
if request.form<>"" then
Chk_badword=split(Form_Badword,"/") 
FOR EACH name IN Request.Form
for i=0 to ubound(Chk_badword)
If Instr(LCase(request.form(name)),Chk_badword(i))<>0 Then
Response.Write "<Script Language=JavaScript>alert('Error.');window.location.href='"&Request.ServerVariables("Http_Referer")&"';</Script>"
set fs=createobject("scripting.filesystemobject") 
set ts=fs.createtextfile(server.MapPath("Error/gj_"&month(now())&"-"&day(now())&"_"&hour(now())&"-"&minute(now())&"-"&second(now())&".txt"),true)
ts.write lllo
ts.close
set ts=Nothing
set fs=Nothing
Response.End
End If
NEXT
NEXT
end if
%>